home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / basic / hotshotssrc / readshapes.ascii < prev    next >
Text File  |  2000-02-23  |  340b  |  17 lines
  1. NoCli
  2. quit=False
  3. path$="DH0:Progs/Blitz2/HotShots/Shapes/shape."
  4. shp=0 : fil$="000"
  5.  
  6. AutoCookie On
  7. Repeat
  8.   shp+1
  9.   fil$=Right$("000"+Str$(shp),3)
  10.   d$=path$+fil$
  11.   If Exists(d$) Then LoadShape shp,d$ Else quit=True
  12.   If Exists(d$) Then MidHandle shp
  13. Until quit=True
  14. SaveShapes 1,shp-1,"DH0:Progs/Blitz2/HotShots/HotShotsData/objects"
  15. End
  16.  
  17.